home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / MFGRPT.PRG < prev    next >
Text File  |  1986-09-29  |  2KB  |  79 lines
  1. * MFGRPT
  2. * INVENTORY LISTING FROM MFGINV.DBF
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. SET STATUS OFF
  6. CLEAR
  7. CLEAR ALL
  8. SET TALK OFF
  9. SET BELL OFF
  10. STORE SPACE(80) TO BLANK
  11. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  12. @ 3,16 SAY ">> Manufactured Inventory System File Listing <<"
  13. @ 5,29 SAY "Today's Date: "
  14. ?? DATE()
  15. STORE " " TO OPINPUT
  16. DO WHILE OPINPUT<"A".OR.OPINPUT>"E"
  17.    @ 9,20 SAY "A. List ALL INVENTORY Items"
  18.    @ 10,20 SAY "B. List Items OUT OF STOCK"
  19.    @ 11,20 SAY "C. List Items at or BELOW REORDER Point"
  20.    @ 12,20 SAY "D. List Items ON ORDER"
  21.    @ 13,20 SAY "E. Return to INVENTORY MENU"
  22.    @ 15,23 SAY "Press Letter Matching Desired Option " GET OPINPUT
  23.    READ
  24.    STORE UPPER(OPINPUT) TO OPINPUT
  25. ENDDO
  26. IF OPINPUT="E"
  27.    RETURN
  28. ENDIF
  29. STORE 7 TO COUNT
  30. DO WHILE COUNT<24
  31.    @ COUNT,0 SAY BLANK
  32.    STORE COUNT+1 TO COUNT
  33. ENDDO
  34. STORE "          " TO STKST
  35. STORE "zzzzzzzzzz" TO STKEND
  36. STORE "MFGINV  " TO FILENAME
  37. STORE "MSTOCKNO" TO INDEX
  38. STORE "MFGLIST " TO REPORT
  39. @ 9,1 SAY "Beginning STOCK NUMBER to Include in Report " GET STKST
  40. @ 11,1 SAY "Ending STOCK NUMBER to Include in Report    " GET STKEND
  41. @ 13,1 SAY "Run Report From The Following FILE " GET FILENAME
  42. @ 15,1 SAY "Ordered by the Following INDEX     " GET INDEX
  43. @ 17,1 SAY "Using the REPORT FORMAT Named      " GET REPORT
  44. STORE " " TO DUMMY
  45. @ 21,1 SAY ;
  46. "REPLACE VALUES AT CURSOR, OR JUST PRESS ENTER IF CURRENT REPORT DESCRIPTION"
  47. @ 22,1 SAY ;
  48. "IS O.K.  'M' HERE RETURNS TO MENU, ANY OTHER KEY STARTS THE REPORT =>";
  49. GET DUMMY
  50. READ
  51. IF DUMMY="M"
  52.    RETURN
  53. ENDIF
  54. IF INDEX="  "
  55.    USE &FILENAME
  56. ELSE
  57.    USE &FILENAME INDEX &INDEX
  58. ENDIF
  59. SET CONSOLE OFF
  60. SET PRINT ON
  61. ?? CHR(27) +"F"
  62. ?? CHR(15)
  63. DO CASE
  64.    CASE OPINPUT="A"
  65.    STORE "ALL INVENTORY, ITEMS "+STKST+" TO "+STKEND TO HEAD
  66.       REPORT FORM &REPORT FOR STOCKNO>= STKST.AND.STOCKNO<= STKEND TO PRINT
  67.    CASE OPINPUT="B"
  68.       REPORT FORM &REPORT FOR STOCKNO>=STKST.AND.STOCKNO<=STKEND.AND.ON_HAND<=0 TO PRINT
  69.     CASE OPINPUT="C"
  70.       REPORT FORM &REPORT FOR STOCKNO>=STKST.AND.STOCKNO<=STKEND.AND.ON_HAND+ON_ORDER<=REORDER_PT TO PRINT 
  71.    CASE OPINPUT="D"
  72.       REPORT FORM &REPORT FOR STOCKNO>=STKST.AND.STOCKNO<=STKEND.AND.ON_ORDER>0 TO PRINT 
  73. ENDCASE
  74. ?? CHR(18)
  75. SET PRINT OFF
  76. SET CONSOLE ON
  77. CLEAR
  78. RETURN
  79.